FINI
/CLE
/FILNAME,E422
/TITLE,EARTHQUAKE ANALYSIS OF SPHERICAL TANK
TANK
 ********** ؼ**************
!********֧ʩӹ̶Լ*********
ASEL,S,LOC,Y,-LOWZ_H		!ѡȡYΪ-LOWZ_H
DA,ALL,ALL			        !Լɶ
! *********غ*********
*DIM,TJX,ARRAY,2,190,0		!2X190TJX洢ˮƽ
*DIM,TJY,ARRAY,2,190,0		!2X190TJY洢ֱ
*CREATE,ANSUITMP					!ANSYSʱļANSUITMP
*VREAD,TJX(1,1),'ACELX','TXT',' ',190	!ACELX.TXTݵTJX
(E9.3,E11.3)							!ݸʽ
*END								!ļANSUITMP
/INPUT,ANSUITMP 					!ӺļANSUITMPж
*CREATE,ANSUITMP					!ANSYSʱļANSUITMP
*VREAD,TJY(1,1),'ACELY','TXT',' ',190	!ACELY.TXTݵTJY
(E9.3,E11.3)							!ݸʽ
*END								!ļANSUITMP
/INPUT,ANSUITMP 					!ӺļANSUITMPж
 ********** ؼ**************
/SOLU		
ANTYPE,4				!ָΪ˲̬ѧ
TRNOPT,FULL			!˲̬ѧFULL
TIMINT,OFF			!رʱЧӦ
OUTRES,BASIC,ALL			!ÿһ
KBC,1				!ָغ
TIME,1E-10			!ָغɲʱ
NSUB,4,8				!ָغӲΪ4ӲΪ8
SSTIF,ON					!ӦջЧӦ
ACEL,0,9.8,0			!ʩٶ
ALLS				!ѡԪ
SOLVE				!һغɲ
!£ṹӦ
TIMINT,ON				!ʱЧӦ
! *********ʩӵغ*********
*DO,T,1,190,1							!ʼt1190ѭ
TIME,0.1*T							!趨غɲĽʱΪ0.1*T
KBC,0								!ָغΪغ
NSUB,1								!ָغӲΪ1
ALPHAD,0.05 						!趨ALPHAΪ0.05
BETAD,0.01							!趨նBETAΪ0.01
ACEL,TJX(2,T),TJY(2,T)
ALLSEL								!ѡԪ
SOLVE								!һغɲ
*ENDDO								!ѭ
SAVE								!
